Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Public Class Vo
End Class
Public Class CategoryVo
    Dim _CategoryId As String
    Dim _CategoryName As String
    Public Property CategoryId() As String
        Get
            Return _CategoryId
        End Get
        Set(ByVal value As String)
            _CategoryId = value
        End Set
    End Property
    Public Property CategoryName() As String
        Get
            Return _CategoryName
        End Get
        Set(ByVal value As String)
            _CategoryName = value
        End Set
    End Property
End Class
Public Class SubCategoryVo
    Dim _CategoryId As String
    Dim _SubCategoryId As String
    Dim _SubCategoryName As String
    Public Property CategoryId() As String
        Get
            Return _CategoryId
        End Get
        Set(ByVal value As String)
            _CategoryId = value
        End Set
    End Property
    Public Property SubCategoryId() As String
        Get
            Return _SubCategoryId
        End Get
        Set(ByVal value As String)
            _SubCategoryId = value
        End Set
    End Property
    Public Property SubCategoryName() As String
        Get
            Return _SubCategoryName
        End Get
        Set(ByVal value As String)
            _SubCategoryName = value
        End Set
    End Property
End Class
Public Class ShippingChargeVo
    Dim _ShippingChargeId As String
    Dim _Charge As String
    
    Public Property ShippingChargeId() As String
        Get
            Return _ShippingChargeId
        End Get
        Set(ByVal value As String)
            _ShippingChargeId = value
        End Set
    End Property
    Public Property Charge() As String
        Get
            Return _Charge
        End Get
        Set(ByVal value As String)
            _Charge = value
        End Set
    End Property
End Class
Public Class CityVo
    Dim _CountryId As String
    Dim _CityId As String
    Dim _CityName As String
    Dim _StateId As String
    Public Property CountryId() As String
        Get
            Return _CountryId
        End Get
        Set(ByVal value As String)
            _CountryId = value
        End Set
    End Property
    Public Property StateId() As String
        Get
            Return _StateId
        End Get
        Set(ByVal value As String)
            _StateId = value
        End Set
    End Property
    Public Property CityId() As String
        Get
            Return _CityId
        End Get
        Set(ByVal value As String)
            _CityId = value
        End Set
    End Property
    Public Property CityName() As String
        Get
            Return _CityName
        End Get
        Set(ByVal value As String)
            _CityName = value
        End Set
    End Property
End Class
Public Class StateVo
    Dim _StateId As String
    Dim _StateName As String
    Dim _CountryId As String
    Public Property CountryId() As String
        Get
            Return _CountryId
        End Get
        Set(ByVal value As String)
            _CountryId = value
        End Set
    End Property
    Public Property StateId() As String
        Get
            Return _StateId
        End Get
        Set(ByVal value As String)
            _StateId = value
        End Set
    End Property
    Public Property StateName() As String
        Get
            Return _StateName
        End Get
        Set(ByVal value As String)
            _StateName = value
        End Set
    End Property
End Class
Public Class CountryVo
    Dim _CountryId As String
    Dim _CountryName As String
    Public Property CountryId() As String
        Get
            Return _CountryId
        End Get
        Set(ByVal value As String)
            _CountryId = value
        End Set
    End Property
    Public Property CountryName() As String
        Get
            Return _CountryName
        End Get
        Set(ByVal value As String)
            _CountryName = value
        End Set
    End Property
End Class
Public Class ProductVo
    Dim _CategoryId As String
    Dim _ProductId As String
    Dim _Price As String
    Dim _Brand As String
    Dim _PhotoPath As String
    Dim _SchemeId As String
    Dim _SubCategoryId As String
    Dim _TotalQuantity As String
    Dim _AvailableQuantity As String
    Dim _Count As String
    Public Property ProductId() As String
        Get
            Return _ProductId
        End Get
        Set(ByVal value As String)
            _ProductId = value
        End Set
    End Property
    Public Property CategoryId() As String
        Get
            Return _CategoryId
        End Get
        Set(ByVal value As String)
            _CategoryId = value
        End Set
    End Property
    Public Property SubCategoryId() As String
        Get
            Return _SubCategoryId
        End Get
        Set(ByVal value As String)
            _SubCategoryId = value
        End Set
    End Property
    Public Property Price() As String
        Get
            Return _Price
        End Get
        Set(ByVal value As String)
            _Price = value
        End Set
    End Property
    Public Property Brand() As String
        Get
            Return _Brand
        End Get
        Set(ByVal value As String)
            _Brand = value
        End Set
    End Property
    Public Property PhotoPath() As String
        Get
            Return _PhotoPath
        End Get
        Set(ByVal value As String)
            _PhotoPath = value
        End Set
    End Property
    Public Property SchemeId() As String
        Get
            Return _SchemeId
        End Get
        Set(ByVal value As String)
            _SchemeId = value
        End Set
    End Property
    Public Property TotalQuantity() As String
        Get
            Return _TotalQuantity
        End Get
        Set(ByVal value As String)
            _TotalQuantity = value
        End Set
    End Property
    Public Property AvailableQuantity() As String
        Get
            Return _AvailableQuantity
        End Get
        Set(ByVal value As String)
            _AvailableQuantity = value
        End Set
    End Property
    Public Property Count() As String
        Get
            Return _Count
        End Get
        Set(ByVal value As String)
            _Count = value
        End Set
    End Property
End Class
Public Class EmployeeVo
    Dim _EmployeeId As String
    Dim _Password As String
    Dim _FirstName As String
    Dim _LastName As String
    Dim _PhoneNumber As String
    Dim _Address As String
    Dim _EmailId As String
    Dim _Designation As String
    Dim _LastLogin As String
    Public Property EmployeeId() As String
        Get
            Return _EmployeeId
        End Get
        Set(ByVal value As String)
            _EmployeeId = value
        End Set
    End Property
    Public Property Password() As String
        Get
            Return _Password
        End Get
        Set(ByVal value As String)
            _Password = value
        End Set
    End Property
    Public Property FirstName() As String
        Get
            Return _FirstName
        End Get
        Set(ByVal value As String)
            _FirstName = value
        End Set
    End Property
    Public Property LastName() As String
        Get
            Return _LastName
        End Get
        Set(ByVal value As String)
            _LastName = value
        End Set
    End Property
    Public Property PhoneNumber() As String
        Get
            Return _PhoneNumber
        End Get
        Set(ByVal value As String)
            _PhoneNumber = value
        End Set
    End Property
    Public Property Address() As String
        Get
            Return _Address
        End Get
        Set(ByVal value As String)
            _Address = value
        End Set
    End Property
    Public Property EmailId() As String
        Get
            Return _EmailId
        End Get
        Set(ByVal value As String)
            _EmailId = value
        End Set
    End Property
    Public Property Designation() As String
        Get
            Return _Designation
        End Get
        Set(ByVal value As String)
            _Designation = value
        End Set
    End Property
    Public Property LastLogin() As String
        Get
            Return _LastLogin
        End Get
        Set(ByVal value As String)
            _LastLogin = value
        End Set
    End Property
End Class
Public Class SchemeVo
    Dim _SchemeId As String
    Dim _Description As String
    Dim _Discount As String
    Dim _StartingDate As String
    Dim _EndingDate As String
    Public Property Discount() As String
        Get
            Return _Discount
        End Get
        Set(ByVal value As String)
            _Discount = value
        End Set
    End Property
    Public Property SchemeId() As String
        Get
            Return _SchemeId
        End Get
        Set(ByVal value As String)
            _SchemeId = value
        End Set
    End Property
    Public Property Description() As String
        Get
            Return _Description
        End Get
        Set(ByVal value As String)
            _Description = value
        End Set
    End Property
    Public Property StartingDate() As String
        Get
            Return _StartingDate
        End Get
        Set(ByVal value As String)
            _StartingDate = value
        End Set
    End Property
    Public Property EndingDate() As String
        Get
            Return _EndingDate
        End Get
        Set(ByVal value As String)
            _EndingDate = value
        End Set
    End Property
End Class
Public Class UserVO
    Dim _UserId As String
    Dim _Password As String
    Dim _FirstName As String
    Dim _LastName As String
    Dim _Country As String
    Dim _State As String
    Dim _City As String
    Dim _PhoneNumber As String
    Dim _MobileNumber As String
    Dim _Address As String
    Dim _BirthDate As String
    Dim _EmailId As String
    Dim _Zipcode As String
    Dim _Gender As String
    Dim _AnniversaryDate As String
    Dim _SecurityQuestion As String
    Dim _SecurityAnswer As String
    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property
    Public Property Password() As String
        Get
            Return _Password
        End Get
        Set(ByVal value As String)
            _Password = value
        End Set
    End Property
    Public Property BirthDate() As String
        Get
            Return _BirthDate
        End Get
        Set(ByVal value As String)
            _BirthDate = value
        End Set
    End Property
    Public Property FirstName() As String
        Get
            Return _FirstName
        End Get
        Set(ByVal value As String)
            _FirstName = value
        End Set
    End Property
    Public Property LastName() As String
        Get
            Return _LastName
        End Get
        Set(ByVal value As String)
            _LastName = value
        End Set
    End Property
    Public Property Country() As String
        Get
            Return _Country
        End Get
        Set(ByVal value As String)
            _Country = value
        End Set
    End Property
    Public Property State() As String
        Get
            Return _State
        End Get
        Set(ByVal value As String)
            _State = value
        End Set
    End Property
    Public Property City() As String
        Get
            Return _City
        End Get
        Set(ByVal value As String)
            _City = value
        End Set
    End Property
    Public Property MobileNumber() As String
        Get
            Return _MobileNumber
        End Get
        Set(ByVal value As String)
            _MobileNumber = value
        End Set
    End Property
    Public Property Gender() As String
        Get
            Return _Gender
        End Get
        Set(ByVal value As String)
            _Gender = value
        End Set
    End Property
    Public Property AnniversaryDate() As String
        Get
            Return _AnniversaryDate
        End Get
        Set(ByVal value As String)
            _AnniversaryDate = value
        End Set
    End Property
    Public Property PhoneNumber() As String
        Get
            Return _PhoneNumber
        End Get
        Set(ByVal value As String)
            _PhoneNumber = value
        End Set
    End Property
    Public Property Address() As String
        Get
            Return _Address
        End Get
        Set(ByVal value As String)
            _Address = value
        End Set
    End Property
    Public Property EmailId() As String
        Get
            Return _EmailId
        End Get
        Set(ByVal value As String)
            _EmailId = value
        End Set
    End Property
    Public Property Zipcode() As String
        Get
            Return _Zipcode
        End Get
        Set(ByVal value As String)
            _Zipcode = value
        End Set
    End Property

    Public Property SecurityQuestion() As String
        Get
            Return _SecurityQuestion
        End Get
        Set(ByVal value As String)
            _SecurityQuestion = value
        End Set
    End Property
    Public Property SecurityAnswer() As String
        Get
            Return _SecurityAnswer
        End Get
        Set(ByVal value As String)
            _SecurityAnswer = value
        End Set
    End Property
End Class
Public Class AddToCartVo
    Dim _UserId As String
    Dim _ProductId As String
    Dim _Quantity As String
    Dim _OriginalPrice As String
    Dim _DiscountedPrice As String
    Dim _Size As String
    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property
    Public Property ProductId() As String
        Get
            Return _ProductId
        End Get
        Set(ByVal value As String)
            _ProductId = value
        End Set
    End Property
    Public Property Quantity() As String
        Get
            Return _Quantity
        End Get
        Set(ByVal value As String)
            _Quantity = value
        End Set
    End Property
    Public Property OriginalPrice() As String
        Get
            Return _OriginalPrice
        End Get
        Set(ByVal value As String)
            _OriginalPrice = value
        End Set
    End Property
    Public Property DiscountedPrice() As String
        Get
            Return _DiscountedPrice
        End Get
        Set(ByVal value As String)
            _DiscountedPrice = value
        End Set
    End Property
    Public Property Size() As String
        Get
            Return _Size
        End Get
        Set(ByVal value As String)
            _Size = value
        End Set
    End Property
End Class
Public Class CreditCardVo
    Dim _CreditCardNumber As String
    Dim _UserId As String

    Dim _CreditCardVerificationNumber As String
    Dim _CreditCardType As String
    Dim _HolderName As String
    Dim _ExpiryDate As String
    Dim _BankName As String
    Public Property CreditCardNumber() As String
        Get
            Return _CreditCardNumber
        End Get
        Set(ByVal value As String)
            _CreditCardNumber = value
        End Set
    End Property
    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property

    Public Property CreditCardVerificationNumber() As String
        Get
            Return _CreditCardVerificationNumber
        End Get
        Set(ByVal value As String)
            _CreditCardVerificationNumber = value
        End Set
    End Property
    Public Property CreditCardType() As String
        Get
            Return _CreditCardType
        End Get
        Set(ByVal value As String)
            _CreditCardType = value
        End Set
    End Property
    Public Property HolderName() As String
        Get
            Return _HolderName
        End Get
        Set(ByVal value As String)
            _HolderName = value
        End Set
    End Property
    Public Property ExpiryDate() As String
        Get
            Return _ExpiryDate
        End Get
        Set(ByVal value As String)
            _ExpiryDate = value
        End Set
    End Property
    Public Property BankName() As String
        Get
            Return _BankName
        End Get
        Set(ByVal value As String)
            _BankName = value
        End Set
    End Property
End Class
Public Class AddToCartMasterVo
    Dim _UserId As String
    Dim _TotalQuantity As String
    Dim _TotalPrice As String
    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property

    Public Property TotalQuantity() As String
        Get
            Return _TotalQuantity
        End Get
        Set(ByVal value As String)
            _TotalQuantity = value
        End Set
    End Property
    Public Property TotalPrice() As String
        Get
            Return _TotalPrice
        End Get
        Set(ByVal value As String)
            _TotalPrice = value
        End Set
    End Property
End Class
Public Class BillMasterVo
    Dim _BillId As String
    Dim _UserId As String
    Dim _BillDate As String
    Dim _Price As String
    Dim _ShippingCharge As String
    Dim _TotalQuantity As String
    Dim _CreditCardNumber As String
    Public Property TotalQuantity() As String
        Get
            Return _TotalQuantity
        End Get
        Set(ByVal value As String)
            _TotalQuantity = value
        End Set
    End Property
    Public Property CreditCardNumber() As String
        Get
            Return _CreditCardNumber
        End Get
        Set(ByVal value As String)
            _CreditCardNumber = value
        End Set
    End Property

    Public Property BillDate() As String
        Get
            Return _BillDate
        End Get
        Set(ByVal value As String)
            _BillDate = value
        End Set
    End Property
    Public Property Price() As String
        Get
            Return _Price
        End Get
        Set(ByVal value As String)
            _Price = value
        End Set
    End Property
    Public Property ShippingCharge() As String
        Get
            Return _ShippingCharge
        End Get
        Set(ByVal value As String)
            _ShippingCharge = value
        End Set
    End Property
    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property
    Public Property BillId() As String
        Get
            Return _BillId
        End Get
        Set(ByVal value As String)
            _BillId = value
        End Set
    End Property
End Class
Public Class BillDetailVo
    Dim _BillId As String
    Dim _ProductId As String
    Dim _Price As String
    Dim _Quantity As String
    Dim _CreditCardNumber As String
    Dim _Size As String
    Public Property Quantity() As String
        Get
            Return _Quantity
        End Get
        Set(ByVal value As String)
            _Quantity = value
        End Set
    End Property
    Public Property Price() As String
        Get
            Return _Price
        End Get
        Set(ByVal value As String)
            _Price = value
        End Set
    End Property
    Public Property ProductId() As String
        Get
            Return _ProductId
        End Get
        Set(ByVal value As String)
            _ProductId = value
        End Set
    End Property
    Public Property BillId() As String
        Get
            Return _BillId
        End Get
        Set(ByVal value As String)
            _BillId = value
        End Set
    End Property
    Public Property Size() As String
        Get
            Return _Size
        End Get
        Set(ByVal value As String)
            _Size = value
        End Set
    End Property
End Class
Public Class TmpBillNoVo
    Dim _BillNo As String
    Public Property BillNo() As String
        Get
            Return _BillNo
        End Get
        Set(ByVal value As String)
            _BillNo = value
        End Set
    End Property
End Class
Public Class TmpShipNoVo
    Dim _ShipNo As String
    Public Property ShipNo() As String
        Get
            Return _ShipNo
        End Get
        Set(ByVal value As String)
            _ShipNo = value
        End Set
    End Property
End Class
Public Class BillingAddressVO
    Dim _BillId As String
    Dim _UserId As String
    Dim _FirstName As String
    Dim _LastName As String
    Dim _Address As String
    Dim _Country As String
    Dim _State As String
    Dim _City As String
    Dim _PhoneNumber As String
    Dim _MobileNumber As String
    Dim _Zipcode As String
    Dim _BillDate As String
    Public Property BillId() As String
        Get
            Return _BillId
        End Get
        Set(ByVal value As String)
            _BillId = value
        End Set
    End Property
    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property
    Public Property FirstName() As String
        Get
            Return _FirstName
        End Get
        Set(ByVal value As String)
            _FirstName = value
        End Set
    End Property
    Public Property LastName() As String
        Get
            Return _LastName
        End Get
        Set(ByVal value As String)
            _LastName = value
        End Set
    End Property
    Public Property Country() As String
        Get
            Return _Country
        End Get
        Set(ByVal value As String)
            _Country = value
        End Set
    End Property
    Public Property State() As String
        Get
            Return _State
        End Get
        Set(ByVal value As String)
            _State = value
        End Set
    End Property
    Public Property City() As String
        Get
            Return _City
        End Get
        Set(ByVal value As String)
            _City = value
        End Set
    End Property
    Public Property MobileNumber() As String
        Get
            Return _MobileNumber
        End Get
        Set(ByVal value As String)
            _MobileNumber = value
        End Set
    End Property
    Public Property BillDate() As String
        Get
            Return _BillDate
        End Get
        Set(ByVal value As String)
            _BillDate = value
        End Set
    End Property
    Public Property PhoneNumber() As String
        Get
            Return _PhoneNumber
        End Get
        Set(ByVal value As String)
            _PhoneNumber = value
        End Set
    End Property
    Public Property Address() As String
        Get
            Return _Address
        End Get
        Set(ByVal value As String)
            _Address = value
        End Set
    End Property
    Public Property Zipcode() As String
        Get
            Return _Zipcode
        End Get
        Set(ByVal value As String)
            _Zipcode = value
        End Set
    End Property
End Class
Public Class ShippingAddressVO
    Dim _BillId As String
    Dim _ShipId As String
    Dim _UserId As String
    Dim _FirstName As String
    Dim _LastName As String
    Dim _Address As String
    Dim _Country As String
    Dim _State As String
    Dim _City As String
    Dim _PhoneNumber As String
    Dim _MobileNumber As String
    Dim _Zipcode As String
    Dim _ShipDate As String
    Public Property BillId() As String
        Get
            Return _BillId
        End Get
        Set(ByVal value As String)
            _BillId = value
        End Set
    End Property
    Public Property ShipId() As String
        Get
            Return _ShipId
        End Get
        Set(ByVal value As String)
            _ShipId = value
        End Set
    End Property
    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property
    Public Property FirstName() As String
        Get
            Return _FirstName
        End Get
        Set(ByVal value As String)
            _FirstName = value
        End Set
    End Property
    Public Property LastName() As String
        Get
            Return _LastName
        End Get
        Set(ByVal value As String)
            _LastName = value
        End Set
    End Property
    Public Property Country() As String
        Get
            Return _Country
        End Get
        Set(ByVal value As String)
            _Country = value
        End Set
    End Property
    Public Property State() As String
        Get
            Return _State
        End Get
        Set(ByVal value As String)
            _State = value
        End Set
    End Property
    Public Property City() As String
        Get
            Return _City
        End Get
        Set(ByVal value As String)
            _City = value
        End Set
    End Property
    Public Property MobileNumber() As String
        Get
            Return _MobileNumber
        End Get
        Set(ByVal value As String)
            _MobileNumber = value
        End Set
    End Property
    Public Property ShipDate() As String
        Get
            Return _ShipDate
        End Get
        Set(ByVal value As String)
            _ShipDate = value
        End Set
    End Property
    Public Property PhoneNumber() As String
        Get
            Return _PhoneNumber
        End Get
        Set(ByVal value As String)
            _PhoneNumber = value
        End Set
    End Property
    Public Property Address() As String
        Get
            Return _Address
        End Get
        Set(ByVal value As String)
            _Address = value
        End Set
    End Property
    Public Property Zipcode() As String
        Get
            Return _Zipcode
        End Get
        Set(ByVal value As String)
            _Zipcode = value
        End Set
    End Property
End Class
Public Class FeedbackVo
    Dim _UserId As String
    Dim _Date As String
    Dim _Feedback As String
    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property
    Public Property FeedDate() As String
        Get
            Return _Date
        End Get
        Set(ByVal value As String)
            _Date = value
        End Set
    End Property
    Public Property Feedback() As String
        Get
            Return _Feedback
        End Get
        Set(ByVal value As String)
            _Feedback = value
        End Set
    End Property
End Class
Public Class SupplierVO
    Dim _SupplierId As String
    Dim _SupplierName As String
    Dim _Country As String
    Dim _State As String
    Dim _City As String
    Dim _PhoneNumber As String
    Dim _MobileNumber As String
    Dim _Address As String
    Dim _EmailId As String
    Dim _Zipcode As String

    Public Property SupplierId() As String
        Get
            Return _SupplierId
        End Get
        Set(ByVal value As String)
            _SupplierId = value
        End Set
    End Property

    Public Property SupplierName() As String
        Get
            Return _SupplierName
        End Get
        Set(ByVal value As String)
            _SupplierName = value
        End Set
    End Property
    Public Property Country() As String
        Get
            Return _Country
        End Get
        Set(ByVal value As String)
            _Country = value
        End Set
    End Property
    Public Property State() As String
        Get
            Return _State
        End Get
        Set(ByVal value As String)
            _State = value
        End Set
    End Property
    Public Property City() As String
        Get
            Return _City
        End Get
        Set(ByVal value As String)
            _City = value
        End Set
    End Property
    Public Property MobileNumber() As String
        Get
            Return _MobileNumber
        End Get
        Set(ByVal value As String)
            _MobileNumber = value
        End Set
    End Property

    Public Property PhoneNumber() As String
        Get
            Return _PhoneNumber
        End Get
        Set(ByVal value As String)
            _PhoneNumber = value
        End Set
    End Property
    Public Property Address() As String
        Get
            Return _Address
        End Get
        Set(ByVal value As String)
            _Address = value
        End Set
    End Property
    Public Property EmailId() As String
        Get
            Return _EmailId
        End Get
        Set(ByVal value As String)
            _EmailId = value
        End Set
    End Property
    Public Property Zipcode() As String
        Get
            Return _Zipcode
        End Get
        Set(ByVal value As String)
            _Zipcode = value
        End Set
    End Property
End Class
Public Class PurchaseDetailVo
    Dim _PurchaseId As String
    Dim _ProductId As String
    Dim _quantity As String
    Dim _Price As String
    Public Property PurchaseId() As String
        Get
            Return _PurchaseId
        End Get
        Set(ByVal value As String)
            _PurchaseId = value
        End Set
    End Property
    Public Property ProductId() As String
        Get
            Return _ProductId
        End Get
        Set(ByVal value As String)
            _ProductId = value
        End Set
    End Property
    Public Property quantity() As String
        Get
            Return _quantity
        End Get
        Set(ByVal value As String)
            _quantity = value
        End Set
    End Property
    Public Property Price() As String
        Get
            Return _Price
        End Get
        Set(ByVal value As String)
            _Price = value
        End Set
    End Property
End Class
Public Class PurchaseCartVo
    Dim _PurchaseId As String
    Dim _ProductId As String
    Dim _Quantity As String
    Dim _Price As String
    Public Property PurchaseId() As String
        Get
            Return _PurchaseId
        End Get
        Set(ByVal value As String)
            _PurchaseId = value
        End Set
    End Property
    Public Property ProductId() As String
        Get
            Return _ProductId
        End Get
        Set(ByVal value As String)
            _ProductId = value
        End Set
    End Property
    Public Property Quantity() As String
        Get
            Return _Quantity
        End Get
        Set(ByVal value As String)
            _Quantity = value
        End Set
    End Property
    Public Property Price() As String
        Get
            Return _Price
        End Get
        Set(ByVal value As String)
            _Price = value
        End Set
    End Property
End Class
Public Class PurchaseMasterVo
    Dim _PurchaseId As String
    Dim _SupplierId As String
    Dim _TotalQuantity As String
    Dim _TotalAmount As String
    Dim _PurchaseDate As String
    Public Property PurchaseId() As String
        Get
            Return _PurchaseId
        End Get
        Set(ByVal value As String)
            _PurchaseId = value
        End Set
    End Property
    Public Property PurchaseDate() As String
        Get
            Return _PurchaseDate
        End Get
        Set(ByVal value As String)
            _PurchaseDate = value
        End Set
    End Property
    Public Property SupplierId() As String
        Get
            Return _SupplierId
        End Get
        Set(ByVal value As String)
            _SupplierId = value
        End Set
    End Property
    Public Property TotalQuantity() As String
        Get
            Return _TotalQuantity
        End Get
        Set(ByVal value As String)
            _TotalQuantity = value
        End Set
    End Property
    Public Property TotalAmount() As String
        Get
            Return _TotalAmount
        End Get
        Set(ByVal value As String)
            _TotalAmount = value
        End Set
    End Property
End Class